home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TGCBOR20.ARJ / INTROPAK.COM / ANIMTST2.C < prev    next >
Text File  |  1991-04-06  |  1KB  |  43 lines
  1. /*---------------------------------------------------------------------------*
  2.  |               TEGL Windows ToolKit II                 |
  3.  |          Copyright (C) 1990, TEGL Systems Corporation             |
  4.  |                All Rights Reserved.                 |
  5.  *---------------------------------------------------------------------------*/
  6.  
  7. #include <conio.h>
  8. #include "teglsys.h"
  9.  
  10. animateobject bounceicon;
  11.  
  12. void main(int argc, char **argv)
  13. {
  14.    setvideochoices(TG_CGA,FALSE);
  15.    setvideochoices(TG_VGA,FALSE);
  16.    easytegl();
  17.  
  18.    init(&bounceicon);
  19.    addframe(&bounceicon,imageBLANKBUT,-15,0,14,37,10,0,0,BLACK);
  20.    sequence(&bounceicon,1);
  21.  
  22.    resetsequence(&bounceicon);
  23.    addframe(&bounceicon,imageBLANKBUT,15,0,14,37,10,0,0,BLACK);
  24.    sequence(&bounceicon,2);
  25.  
  26.    origin(&bounceicon,getmaxx() / 2,getmaxy() / 2);
  27.  
  28.    animateinit();
  29.  
  30.    clearkeyboardbuf();
  31.  
  32.    while (!kbhit())
  33.       {
  34.      sequence(&bounceicon,1);
  35.      animate(&bounceicon,destination(&bounceicon,36,0));
  36.  
  37.      sequence(&bounceicon,2);
  38.      animate(&bounceicon,destination(&bounceicon,560,0));
  39.       }
  40.  
  41.    teglsupervisor();
  42. }
  43.